
UNIT show;

INTERFACE

uses Graph,crt,dos,Globvar;

procedure Mostra;

implementation

procedure Mostra;

begin
     moveto(0,a+PtInicial);
     for v:= 1 to (FinX-InitX) div divisor*m do
     lineto(m*v,a+PtInicial+10*buffer[u+EscX[IEscX]*v div 2] div calY[IEscY]);
end;
end.